home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok11 / r.o.m. / m2sources / mystrings.mod < prev    next >
Text File  |  1993-11-04  |  873b  |  39 lines
  1. IMPLEMENTATION MODULE MyStrings;
  2. (*
  3.   Created:   1987 by
  4.              Stefan Salewski
  5.              Stolper Weg 3
  6.              2160 Stade   West-Germany
  7.              Tel: 04141/61130
  8.              
  9.   Note: compiled with AMIGA Modula-2 System by AMSoft from 5.5.88
  10.    
  11.   This Module may be freely copied. But please
  12.   leave my name in. Thanks....Stefan  
  13. *)
  14.  
  15.   PROCEDURE Assign(VAR Dest:ARRAY OF CHAR;Source:ARRAY OF CHAR);
  16.     VAR i,h:INTEGER;
  17.   BEGIN
  18.     h:=HIGH(Source)+1;(*Elementenzahl*)
  19.     IF HIGH(Dest)<h THEN h:=HIGH(Dest) END;
  20.     i:=(0);
  21.     WHILE (i<h) AND (Source[i]#0C) DO
  22.       Dest[i]:=Source[i];
  23.       INC(i);
  24.     END;
  25.     Dest[i]:=0C;
  26.   END Assign;
  27.   
  28.   PROCEDURE Length(s:ARRAY OF CHAR):CARDINAL;
  29.     VAR l:INTEGER;
  30.   BEGIN
  31.     l:=0;
  32.     WHILE  (l <= HIGH(s)) AND (s[l]#0C) DO
  33.       INC(l)
  34.     END;
  35.     RETURN CARDINAL(l)
  36.   END Length;
  37.   
  38. END MyStrings.mod
  39.